home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / X-Demos and Utilities / (c)x2.d64 / char boot.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  856b  |  23 lines
  1. 10 REM
  2. 15 REM  CHRACTER EDITOR BOOT
  3. 20 REM
  4. 22 POKE 53280,14:POKE 53281,6
  5. 25 IF PEEK(832)<>255 THEN PRINT "[147]LOADING ...":GOSUB 100
  6. 30 IF PEEK(832)<>255 THEN LOAD "ROTATE.DATA.D",8,1
  7. 40 PRINT "LOAD"CHR$(34)"STANDARD.SET.D"CHR$(34)",8,1"
  8. 41 PRINT "NEW"
  9. 44 PRINT "LOAD"CHR$(34)"CHAR EDITOR.D"CHR$(34)",8"
  10. 50 POKE 198,10
  11. 55 DATA 19,13,13,13,32,32,82,85,78,13
  12. 60 FOR I=1 TO 10:READ X:POKE 630+I,X:NEXT
  13. 70 POKE 44,64:POKE 16*1024,0:CLR:NEW
  14. 100 PRINT"      [146]  [146]  [146]    [146]    [146]    [146]    [146]    [146]    [146]    [146]
  15. 110 [153]"    WAIT    WAIT  WAIT  WAIT  WAIT  WAIT  WAIT  WAIT  WAIT  WAIT     WAIT   WAIT    WAIT  WAIT
  16. 120 PRINT"    [146]    [146][183] [146]  [146][183] [146]  [146][183][181]  [146][183] [146]  [146]     [146]   [146][183]   [146][183][181]
  17. 130 [153]"   USRUSRUSR USR USR USR USR USR COS USR USR USRUSRUSR  USR  USRUSRUSR USR COS
  18. 140 PRINT"             [146]    [146]  [146]    [146]    [146]    [146]
  19. 150 [153]"           WAIT    WAIT  WAIT  WAIT   WAIT   WAIT  WAIT  WAIT  WAIT
  20. 160 PRINT"           [146][183]   [146]  [146]  [146]   [146]   [146]  [146]  [146][183][181]
  21. 170 [153]"          USRUSRUSR USRUSRUSR USR  USR  USRUSRUSR USR COS
  22. 180 RETURN
  23.